home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / geos-archive / GEOS-D64 / GEOS Mega ASM (19xx)(-).d64 / list8-3 < prev    next >
Text File  |  2019-04-13  |  2KB  |  77 lines
  1.      n     "VLIR2-Mod B.obj"
  2.      if .p
  3.      t     "Listing_8.1.ext"
  4.      t     "TopSym"
  5.      t     "TopMac"
  6.      endif
  7.  
  8.      o     ModStart
  9.  
  10.      ; Sprungtabelle:
  11.      jmp     DA_Init
  12.      jmp     DA_Call
  13.  
  14. :maxDesks     = 8     ; maximale Anzahl der angezeigten DA's
  15. :DA_Init     ; Erstellung der Liste der DA's
  16.      ; der Applicationsdisk
  17.      LoadB     r7L,DESK_ACC
  18.      LoadB     r7H,maxDesks
  19.      LoadW     r6,DASpace
  20.      LoadW     r10,0     ; Keine Class-Angabe
  21.      jsr     FindFTypes
  22.      lda     #maxDesks     ; Anzahl ermitteln
  23.      sec
  24.      sbc     r7H
  25.      clc
  26.      adc     #01     ; Men}punktanzahl ermitteln
  27.      sta     a0     ; und merken
  28.      ora     #$80
  29.      sta     geosanz     ; und speichern
  30.      LoadB     a1,14     ; Untere Men}grenze
  31.      ldx     #a0     ; berechnen
  32.      ldy     #a1
  33.      jsr     BBMult
  34.      ldx     a0
  35.      inx
  36.      txa          ; Ergebnis zur
  37.      clc          ; oberen Grenze aufaddieren
  38.      adc     geosoben
  39.      sta     geosunten     ; und speichern
  40.      rts
  41.  
  42. :DA_Call               ; Nummer des Men}punktes in x
  43.      dex          ; minus 1
  44.      stx     a0L
  45.      jsr     GotoFirstMenu
  46.      LoadW     r7,A_Name
  47.      LoadW     r2,52
  48.      jsr     WriteRecord
  49.      lda     curRecord
  50.      pha
  51.      jsr     CloseRecordFile
  52.      LoadB     a1,17
  53.      ldx     #a0
  54.      ldy     #a1
  55.      jsr     BBMult     ; mal 17
  56.      lda     a0L
  57.      clc
  58.      adc     #<DASpace     ; plus #DASpace
  59.      sta     r6L
  60.      lda     a0H
  61.      adc     #>DASpace
  62.      sta     r6H     ; ergibt Filenamen des DA's
  63.      LoadB     r0L,0
  64.      jsr     GetFile     ; DA laden und ausf}hren
  65.      lda     screencolors     ; Farben wiederherstellen
  66.      sta     :col
  67.      jsr     i_FillRam
  68.      w     1000,$8c00
  69. ::col     b     0
  70.      jsr     i_RecoverRectangle
  71.      b     16,199     ; BitMap wiederherstellen
  72.      w     0,319
  73.      LoadW     r0,VLIRName
  74.      jsr     OpenRecordFile
  75.      pla
  76.      jmp     PointRecord